home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 07-07.BAS < prev    next >
BASIC Source File  |  1991-06-06  |  831b  |  43 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. OldMode = FGgetmode
  6. FGsetmode 16
  7. FGinitw
  8. FGsetworld 0.0, 6.39, 0.0, 3.49
  9. FGsetsizew 0.21
  10.  
  11. FGsetcolor 15
  12. FGlocate 0, 26
  13. FGtext "Software characters - font 1", 28
  14.  
  15. FGsetcolor 10
  16. FGmovew 0.0, 3.1
  17. FGswchar "ABCDEFGHIJKLMNOPQRSTUVWXYZ",26, -1
  18. FGmovew 0.0, 2.8
  19. FGswchar "abcdefghijklmnopqrstuvwxyz",26, -1
  20. FGmovew 0.0, 2.5
  21. FGswchar "0123456789", 10, -1
  22. FGmovew 0.0, 2.2
  23. FGswchar "!" + CHR$(34) + "#$%&'()*+,-./:;<=>?[]^`{|}~", 29, -1
  24.  
  25. FGsetcolor 15
  26. FGlocate 12, 26
  27. FGtext "Software characters - font 2", 28
  28.  
  29. FGsetcolor 10
  30. FGmovew 0.0, 1.4
  31. FGswchar "\ABCDEFGHIJKLMNOPRSTUWXYZ", 25, -1
  32. FGmovew 0.0, 1.1
  33. FGswchar "\abcdefghijklmnoprstuwxyz", 25, -1
  34. FGmovew 0.0, 0.4
  35. FGswchar "\012345678#$%&()*+/<=>?[]{}", 27, -1
  36.  
  37. FGwaitkey
  38.  
  39. FGsetmode OldMode
  40. FGreset
  41.  
  42. END
  43.